/ Developer CD Series 1994 August: Tool Chest / Dev.CD Aug 94.toast / Sample Code / Snippets / Toolbox / EnableSoundThrough / EnableSoundThrough.p

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 94 01 ae 0d 00 00 04 e4 | 12 45 6e 61 62 6c 65 53 |........|.EnableS|
|00000010| 6f 75 6e 64 54 68 72 6f | 75 67 68 08 98 01 92 1e |oundThro|ugh.....|
|00000020| 00 01 37 7b 20 44 65 6d | 6f 6e 73 74 72 61 74 69 |..7{ Dem|onstrati|
|00000030| 6e 67 20 68 6f 77 20 74 | 6f 20 65 6e 61 62 6c 65 |ng how t|o enable|
|00000040| 20 69 6e 70 75 74 20 73 | 6f 75 6e 64 20 70 6c 61 | input s|ound pla|
|00000050| 79 74 68 72 6f 75 67 68 | 20 7d 92 32 00 01 5f 7b |ythrough| }.2.._{|
|00000060| 20 6f 6e 20 61 20 4c 43 | 20 65 6e 61 62 6c 69 6e | on a LC| enablin|
|00000070| 67 20 70 6c 61 79 74 68 | 72 6f 75 67 68 20 6b 69 |g playth|rough ki|
|00000080| 6c 6c 73 20 73 6f 75 6e | 64 20 6f 75 74 70 75 74 |lls soun|d output|
|00000090| 2c 20 6f 6e 20 61 20 73 | 69 20 79 6f 75 20 63 61 |, on a s|i you ca|
|000000a0| 6e 20 70 6c 61 79 20 62 | 61 63 6b 20 61 74 20 74 |n play b|ack at t|
|000000b0| 68 65 20 73 61 6d 65 20 | 74 69 6d 65 20 7d 94 01 |he same |time }..|
|000000c0| a2 01 cc 0a 10 73 69 52 | 65 61 64 50 65 72 6d 69 |.....siR|eadPermi|
|000000d0| 73 73 69 6f 6e 08 7a 03 | 03 00 00 00 98 01 92 18 |ssion.z.|........|
|000000e0| 00 00 2a 09 09 09 09 7b | 20 70 65 72 6d 69 73 73 |..*....{| permiss|
|000000f0| 69 6f 6e 20 70 61 73 73 | 65 64 20 74 6f 20 53 50 |ion pass|ed to SP|
|00000100| 42 4f 70 65 6e 44 65 76 | 69 63 65 20 7d 08 cc 0a |BOpenDev|ice }...|
|00000110| 11 73 69 57 72 69 74 65 | 50 65 72 6d 69 73 73 69 |.siWrite|Permissi|
|00000120| 6f 6e 7a 03 03 00 00 01 | 98 01 cc 09 0f 73 69 50 |onz.....|.....siP|
|00000130| 6c 61 79 54 68 72 75 4f | 6e 4f 66 66 7a 05 05 00 |layThruO|nOffz...|
|00000140| 04 70 6c 74 68 08 98 01 | 92 24 00 00 42 09 09 09 |.plth...|.$..B...|
|00000150| 7b 20 70 6c 61 79 74 68 | 72 6f 75 67 68 20 73 74 |{ playth|rough st|
|00000160| 61 74 65 20 66 6f 72 20 | 53 50 42 47 65 74 44 65 |ate for |SPBGetDe|
|00000170| 76 69 63 65 49 6e 66 6f | 20 61 6e 64 20 53 50 42 |viceInfo| and SPB|
|00000180| 53 65 74 44 65 76 69 63 | 65 49 6e 66 6f 20 7d 08 |SetDevic|eInfo }.|
|00000190| 94 01 ba 01 7e 03 03 65 | 72 72 a6 01 7e 04 05 4f |....~..e|rr..~..O|
|000001a0| 53 45 72 72 98 01 7e 05 | 06 73 49 6e 52 65 66 08 |SErr..~.|.sInRef.|
|000001b0| a6 01 7e 05 07 4c 4f 4e | 47 49 4e 54 98 01 7e 05 |..~..LON|GINT..~.|
|000001c0| 06 76 6f 6c 75 6d 65 08 | a6 01 7e 05 07 49 6e 74 |.volume.|..~..Int|
|000001d0| 65 67 65 72 98 01 94 01 | 92 31 00 01 5c 7b 20 54 |eger....|.1..\{ T|
|000001e0| 68 65 73 65 20 66 75 6e | 63 74 69 6f 6e 73 20 61 |hese fun|ctions a|
|000001f0| 72 65 20 64 65 63 6c 61 | 72 65 64 20 69 6e 20 53 |re decla|red in S|
|00000200| 6f 75 6e 64 49 6e 70 75 | 74 2e 70 20 28 61 6e 64 |oundInpu|t.p (and|
|00000210| 20 65 71 75 69 76 61 6c | 65 6e 74 20 66 69 6c 65 | equival|ent file|
|00000220| 73 2e 29 20 49 20 61 6d | 20 64 65 63 6c 61 72 69 |s.) I am| declari|
|00000230| 6e 67 20 74 68 65 6d 20 | 7d 08 92 13 00 01 20 7b |ng them |}..... {|
|00000240| 20 68 65 72 65 20 66 6f | 72 20 6e 6f 74 68 69 6e | here fo|r nothin|
|00000250| 67 20 73 61 6b 65 2c 20 | 4f 2e 4b 2e 3f 20 7d 08 |g sake, |O.K.? }.|
|00000260| b2 0a 00 00 00 00 0d 53 | 50 42 4f 70 65 6e 44 65 |.......S|PBOpenDe|
|00000270| 76 69 63 65 a8 01 7e 07 | 0a 64 65 76 69 63 65 4e |vice..~.|.deviceN|
|00000280| 61 6d 65 08 a6 01 7e 05 | 06 53 74 72 32 35 35 08 |ame...~.|.Str255.|
|00000290| 98 01 7e 07 0a 70 65 72 | 6d 69 73 73 69 6f 6e 08 |..~..per|mission.|
|000002a0| a6 01 7e 05 07 49 4e 54 | 45 47 45 52 98 01 ba 01 |..~..INT|EGER....|
|000002b0| 7e 06 08 69 6e 52 65 66 | 4e 75 6d 08 a6 01 7e 05 |~..inRef|Num...~.|
|000002c0| 07 4c 4f 4e 47 49 4e 54 | aa 01 a6 01 7e 04 05 4f |.LONGINT|....~..O|
|000002d0| 53 45 72 72 98 01 ce 01 | 7a 06 0a 00 20 3c 05 24 |SErr....|z... <.$|
|000002e0| 32 30 33 43 7c 01 7a 06 | 0a 00 05 18 05 24 30 35 |203C|.z.|.....$05|
|000002f0| 31 38 7c 01 7a 06 0a 00 | 00 14 05 24 30 30 31 34 |18|.z...|...$0014|
|00000300| 7c 01 7a 06 0a 00 a8 00 | 05 24 41 38 30 30 98 01 ||.z.....|.$A800..|
|00000310| 94 01 b2 0c 00 00 00 00 | 10 53 50 42 47 65 74 44 |........|.SPBGetD|
|00000320| 65 76 69 63 65 49 6e 66 | 6f 08 a8 01 7e 06 08 69 |eviceInf|o...~..i|
|00000330| 6e 52 65 66 4e 75 6d 08 | a6 01 7e 05 07 4c 4f 4e |nRefNum.|..~..LON|
|00000340| 47 49 4e 54 98 01 7e 06 | 08 69 6e 66 6f 54 79 70 |GINT..~.|.infoTyp|
|00000350| 65 08 a6 01 7e 05 06 4f | 53 54 79 70 65 08 98 01 |e...~..O|SType...|
|00000360| 7e 06 08 69 6e 66 6f 44 | 61 74 61 08 a6 01 7e 03 |~..infoD|ata...~.|
|00000370| 03 50 74 72 aa 01 a6 01 | 7e 04 05 4f 53 45 72 72 |.Ptr....|~..OSErr|
|00000380| 98 01 ce 01 7a 06 0a 00 | 20 3c 05 24 32 30 33 43 |....z...| <.$203C|
|00000390| 7c 01 7a 06 0a 00 06 38 | 05 24 30 36 33 38 7c 01 ||.z....8|.$0638|.|
|000003a0| 7a 06 0a 00 00 14 05 24 | 30 30 31 34 7c 01 7a 06 |z......$|0014|.z.|
|000003b0| 0a 00 a8 00 05 24 41 38 | 30 30 98 01 94 01 b2 0c |.....$A8|00......|
|000003c0| 00 00 00 00 10 53 50 42 | 53 65 74 44 65 76 69 63 |.....SPB|SetDevic|
|000003d0| 65 49 6e 66 6f 08 a8 01 | 7e 06 08 69 6e 52 65 66 |eInfo...|~..inRef|
|000003e0| 4e 75 6d 08 a6 01 7e 05 | 07 4c 4f 4e 47 49 4e 54 |Num...~.|.LONGINT|
|000003f0| 98 01 7e 06 08 69 6e 66 | 6f 54 79 70 65 08 a6 01 |..~..inf|oType...|
|00000400| 7e 05 06 4f 53 54 79 70 | 65 08 98 01 7e 06 08 69 |~..OSTyp|e...~..i|
|00000410| 6e 66 6f 44 61 74 61 08 | a6 01 7e 03 03 50 74 72 |nfoData.|..~..Ptr|
|00000420| aa 01 a6 01 7e 04 05 4f | 53 45 72 72 98 01 ce 01 |....~..O|SErr....|
|00000430| 7a 06 0a 00 20 3c 05 24 | 32 30 33 43 7c 01 7a 06 |z... <.$|203C|.z.|
|00000440| 0a 00 06 3c 05 24 30 36 | 33 43 7c 01 7a 06 0a 00 |...<.$06|3C|.z...|
|00000450| 00 14 05 24 30 30 31 34 | 7c 01 7a 06 0a 00 a8 00 |...$0014||.z.....|
|00000460| 05 24 41 38 30 30 98 01 | 94 01 b2 0b 00 00 00 00 |.$A800..|........|
|00000470| 0e 53 50 42 43 6c 6f 73 | 65 44 65 76 69 63 65 08 |.SPBClos|eDevice.|
|00000480| a8 01 7e 06 08 69 6e 52 | 65 66 4e 75 6d 08 a6 01 |..~..inR|efNum...|
|00000490| 7e 05 07 4c 4f 4e 47 49 | 4e 54 aa 01 a6 01 7e 04 |~..LONGI|NT....~.|
|000004a0| 05 4f 53 45 72 72 98 01 | ce 01 7a 06 0a 00 20 3c |.OSErr..|..z... <|
|000004b0| 05 24 32 30 33 43 7c 01 | 7a 06 0a 00 02 1c 05 24 |.$203C|.|z......$|
|000004c0| 30 32 31 43 7c 01 7a 06 | 0a 00 00 14 05 24 30 30 |021C|.z.|.....$00|
|000004d0| 31 34 7c 01 7a 06 0a 00 | a8 00 05 24 41 38 30 30 |14|.z...|...$A800|
|000004e0| 98 01 94 01 b0 0e 00 00 | 05 02 14 47 65 74 50 6c |........|...GetPl|
|000004f0| 61 79 54 68 72 6f 75 67 | 68 56 6f 6c 75 6d 65 08 |ayThroug|hVolume.|
|00000500| 98 01 80 05 00 00 06 10 | 00 00 06 0c 78 20 5c 03 |........|....x \.|
|00000510| 65 72 72 0a 5c 10 53 50 | 42 47 65 74 44 65 76 69 |err.\.SP|BGetDevi|
|00000520| 63 65 49 6e 66 6f 10 5c | 06 73 49 6e 52 65 66 12 |ceInfo.\|.sInRef.|
|00000530| 5c 0f 73 69 50 6c 61 79 | 54 68 72 75 4f 6e 4f 66 |\.siPlay|ThruOnOf|
|00000540| 66 12 26 5c 06 76 6f 6c | 75 6d 65 16 98 01 92 13 |f.&\.vol|ume.....|
|00000550| 00 00 20 20 7b 20 57 68 | 61 74 20 69 73 20 74 68 |..  { Wh|at is th|
|00000560| 65 20 63 75 72 72 65 6e | 74 20 76 6f 6c 75 6d 65 |e curren|t volume|
|00000570| 3f 20 7d 08 86 08 5c 03 | 65 72 72 44 5c 05 6e 6f |? }...\.|errD\.no|
|00000580| 45 72 72 08 78 21 5c 07 | 77 72 69 74 65 6c 6e 10 |Err.x!\.|writeln.|
|00000590| 5a 05 28 6e 6f 20 70 72 | 6f 62 6c 65 6d 20 67 65 |Z.(no pr|oblem ge|
|000005a0| 74 74 69 6e 67 20 70 6c | 61 79 20 74 68 72 6f 75 |tting pl|ay throu|
|000005b0| 67 68 20 76 6f 6c 75 6d | 65 20 3d 12 5c 06 76 6f |gh volum|e =.\.vo|
|000005c0| 6c 75 6d 65 16 08 96 01 | 78 20 5c 07 77 72 69 74 |lume....|x \.writ|
|000005d0| 65 6c 6e 10 5a 05 29 63 | 6f 75 6c 64 20 6e 6f 74 |eln.Z.)c|ould not|
|000005e0| 20 67 65 74 20 70 6c 61 | 79 20 74 68 72 6f 75 67 | get pla|y throug|
|000005f0| 68 20 76 6f 6c 75 6d 65 | 2c 20 65 72 72 20 3d 20 |h volume|, err = |
|00000600| 12 5c 03 65 72 72 16 08 | 98 01 9a 01 98 01 94 01 |.\.err..|........|
|00000610| b0 0c 00 00 06 2a 11 4f | 6e 4f 66 66 53 6f 75 6e |.....*.O|nOffSoun|
|00000620| 64 54 68 72 6f 75 67 68 | 98 01 80 05 00 00 00 00 |dThrough|........|
|00000630| 00 00 07 b2 86 08 5c 06 | 76 6f 6c 75 6d 65 44 08 |......\.|volumeD.|
|00000640| 5a 03 00 00 92 1f 00 00 | 38 20 7b 20 49 66 20 70 |Z.......|8 { If p|
|00000650| 6c 61 79 74 68 72 6f 75 | 67 68 20 76 6f 6c 75 6d |laythrou|gh volum|
|00000660| 65 20 69 73 20 30 20 28 | 6f 66 66 29 20 74 68 65 |e is 0 (|off) the|
|00000670| 6e 20 77 65 20 74 75 72 | 6e 20 69 74 20 6f 6e 20 |n we tur|n it on |
|00000680| 7d 08 78 08 5c 06 76 6f | 6c 75 6d 65 0a 08 5a 03 |}.x.\.vo|lume..Z.|
|00000690| 00 05 96 01 92 1d 00 00 | 34 09 09 09 09 09 7b 20 |........|4.....{ |
|000006a0| 69 66 20 77 65 20 68 61 | 76 65 20 73 6f 75 6e 64 |if we ha|ve sound|
|000006b0| 20 63 6f 6d 6d 69 6e 67 | 20 69 6e 20 77 65 20 77 | comming| in we w|
|000006c0| 69 6c 6c 20 6b 69 6c 6c | 20 69 74 20 7d 08 78 08 |ill kill| it }.x.|
|000006d0| 5c 06 76 6f 6c 75 6d 65 | 0a 08 5a 03 00 00 98 01 |\.volume|..Z.....|
|000006e0| 78 20 5c 03 65 72 72 0a | 5c 10 53 50 42 53 65 74 |x \.err.|\.SPBSet|
|000006f0| 44 65 76 69 63 65 49 6e | 66 6f 10 5c 06 73 49 6e |DeviceIn|fo.\.sIn|
|00000700| 52 65 66 12 5c 0f 73 69 | 50 6c 61 79 54 68 72 75 |Ref.\.si|PlayThru|
|00000710| 4f 6e 4f 66 66 12 26 5c | 06 76 6f 6c 75 6d 65 16 |OnOff.&\|.volume.|
|00000720| 98 01 86 08 5c 03 65 72 | 72 44 5c 05 6e 6f 45 72 |....\.er|rD\.noEr|
|00000730| 72 08 78 22 5c 07 77 72 | 69 74 65 6c 6e 10 5a 05 |r.x"\.wr|iteln.Z.|
|00000740| 2b 6e 6f 20 70 72 6f 62 | 6c 65 6d 20 73 65 74 74 |+no prob|lem sett|
|00000750| 69 6e 67 20 70 6c 61 79 | 20 74 68 72 6f 75 67 68 |ing play| through|
|00000760| 2c 20 76 6f 6c 75 6d 65 | 20 69 73 20 12 5c 06 76 |, volume| is .\.v|
|00000770| 6f 6c 75 6d 65 16 96 01 | 78 1c 5c 07 77 72 69 74 |olume...|x.\.writ|
|00000780| 65 6c 6e 10 5a 05 22 63 | 6f 75 6c 64 20 6e 6f 74 |eln.Z."c|ould not|
|00000790| 20 73 65 74 20 70 6c 61 | 79 20 74 68 72 6f 75 67 | set pla|y throug|
|000007a0| 68 2c 20 65 72 72 20 3d | 20 12 5c 03 65 72 72 16 |h, err =| .\.err.|
|000007b0| 9a 01 98 01 94 01 80 05 | 00 00 00 00 00 00 0a 54 |........|.......T|
|000007c0| 7e 06 08 53 68 6f 77 54 | 65 78 74 08 98 01 78 1d |~..ShowT|ext...x.|
|000007d0| 5c 03 65 72 72 0a 5c 0d | 53 50 42 4f 70 65 6e 44 |\.err.\.|SPBOpenD|
|000007e0| 65 76 69 63 65 10 5a 05 | 00 12 5c 11 73 69 57 72 |evice.Z.|..\.siWr|
|000007f0| 69 74 65 50 65 72 6d 69 | 73 73 69 6f 6e 12 5c 06 |itePermi|ssion.\.|
|00000800| 73 49 6e 52 65 66 16 08 | 98 01 92 15 00 00 25 20 |sInRef..|......% |
|00000810| 7b 20 4e 75 6c 6c 20 73 | 74 72 69 6e 67 20 6d 65 |{ Null s|tring me|
|00000820| 61 6e 73 20 64 65 66 61 | 75 6c 74 20 64 65 76 69 |ans defa|ult devi|
|00000830| 63 65 20 7d 86 08 5c 03 | 65 72 72 44 5c 05 6e 6f |ce }..\.|errD\.no|
|00000840| 45 72 72 08 80 05 00 00 | 00 00 00 00 09 28 78 15 |Err.....|.....(x.|
|00000850| 5c 07 77 72 69 74 65 6c | 6e 10 5a 05 19 4e 6f 20 |\.writel|n.Z..No |
|00000860| 70 72 6f 62 6c 65 6d 20 | 6f 70 65 6e 69 6e 67 20 |problem |opening |
|00000870| 64 65 76 69 63 65 16 08 | 98 01 7e 0c 14 47 65 74 |device..|..~..Get|
|00000880| 50 6c 61 79 54 68 72 6f | 75 67 68 56 6f 6c 75 6d |PlayThro|ughVolum|
|00000890| 65 08 98 01 92 11 00 00 | 1d 09 09 09 09 09 09 7b |e.......|.......{|
|000008a0| 20 67 65 74 20 63 75 72 | 72 65 6e 74 20 6c 65 76 | get cur|rent lev|
|000008b0| 65 6c 20 09 09 7d 7e 0a | 11 4f 6e 4f 66 66 53 6f |el ..}~.|.OnOffSo|
|000008c0| 75 6e 64 54 68 72 6f 75 | 67 68 98 01 92 0e 00 00 |undThrou|gh......|
|000008d0| 16 09 09 09 09 09 09 09 | 7b 20 66 6c 69 70 20 69 |........|{ flip i|
|000008e0| 74 09 09 09 09 09 7d 08 | 7e 0c 14 47 65 74 50 6c |t.....}.|~..GetPl|
|000008f0| 61 79 54 68 72 6f 75 67 | 68 56 6f 6c 75 6d 65 08 |ayThroug|hVolume.|
|00000900| 98 01 92 12 00 00 1e 09 | 09 09 09 09 09 7b 20 6d |........|.....{ m|
|00000910| 61 6b 65 20 73 75 72 65 | 20 69 74 20 77 6f 72 6b |ake sure| it work|
|00000920| 65 64 20 09 7d 08 9a 01 | 96 01 78 20 5c 07 57 72 |ed .}...|..x \.Wr|
|00000930| 69 74 65 4c 6e 10 5a 05 | 2a 50 72 6f 62 6c 65 6d |iteLn.Z.|*Problem|
|00000940| 20 77 68 65 6e 20 63 61 | 6c 6c 69 6e 67 20 53 50 | when ca|lling SP|
|00000950| 42 4f 70 65 6e 44 65 76 | 69 63 65 2c 20 65 72 72 |BOpenDev|ice, err|
|00000960| 20 3d 20 12 5c 03 65 72 | 72 16 98 01 8a 06 24 5c | = .\.er|r.....$\|
|00000970| 06 62 75 74 74 6f 6e 08 | 98 01 86 08 5c 06 73 49 |.button.|....\.sI|
|00000980| 6e 52 65 66 46 08 5a 03 | 00 00 80 05 00 00 00 00 |nRefF.Z.|........|
|00000990| 00 00 0a 50 7e 0a 11 4f | 6e 4f 66 66 53 6f 75 6e |...P~..O|nOffSoun|
|000009a0| 64 54 68 72 6f 75 67 68 | 98 01 92 0b 00 00 10 09 |dThrough|........|
|000009b0| 7b 20 66 6c 69 70 20 69 | 74 09 09 09 09 09 7d 08 |{ flip i|t.....}.|
|000009c0| 78 11 5c 03 65 72 72 0a | 5c 0e 53 50 42 43 6c 6f |x.\.err.|\.SPBClo|
|000009d0| 73 65 44 65 76 69 63 65 | 10 5c 06 73 49 6e 52 65 |seDevice|.\.sInRe|
|000009e0| 66 16 98 01 92 14 00 00 | 22 20 7b 20 57 65 20 6f |f.......|" { We o|
|000009f0| 70 65 6e 65 64 20 69 74 | 20 73 6f 20 6c 65 74 73 |pened it| so lets|
|00000a00| 20 63 6c 6f 73 65 20 69 | 74 20 7d 08 86 08 5c 03 | close i|t }...\.|
|00000a10| 65 72 72 46 5c 05 6e 6f | 45 72 72 08 78 18 5c 08 |errF\.no|Err.x.\.|
|00000a20| 44 65 62 75 67 53 74 72 | 10 5a 05 1e 45 72 72 6f |DebugStr|.Z..Erro|
|00000a30| 72 20 63 6c 6f 73 69 6e | 67 20 74 68 65 20 69 6e |r closin|g the in|
|00000a40| 70 75 74 20 64 65 76 69 | 63 65 16 08 98 01 9a 01 |put devi|ce......|
|00000a50| 98 01 9a 01 00 01 02 01 |                         |........|        |
+--------+-------------------------+-------------------------+--------+--------+